home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / _GUICtrlEditReplaceSel.au3 < prev    next >
Text File  |  2007-09-08  |  1KB  |  34 lines
  1. #include <GUIConstants.au3>
  2. #include <GuiEdit.au3>
  3.  
  4. opt('MustDeclareVars', 1)
  5.  
  6. Dim $myedit, $msg, $Btn_Replace
  7.  
  8. GUICreate("Edit Replace Sel", 392, 254)
  9.  
  10. $myedit = GUICtrlCreateEdit("AutoIt v3 is a freeware BASIC-like scripting language designed for automating the Windows GUI." & @CRLF, 140, 32, 121, 97, BitOR($ES_AUTOVSCROLL, $WS_VSCROLL, $ES_MULTILINE, $WS_HSCROLL))
  11. GUICtrlSetLimit($myedit, 1500)
  12. $Btn_Replace = GUICtrlCreateButton("Replace Sel", 150, 140, 90, 30)
  13.  
  14. ; will be append dont' forget 3rd parameter
  15. GUICtrlSetData($myedit, "It uses a combination of simulated keystrokes, mouse movement and window/control manipulation" & @CRLF & _
  16.       "in order to automate tasks in a way not possible or reliable with other languages (e.g. VBScript" & @CRLF & _ 
  17.       "and SendKeys)." & @CRLF & _ 
  18.       'AutoIt was initially designed for PC "roll out" situations to configure thousands of PCs, but with the' & @CRLF & _ 
  19.       "arrival of v3 it is also well suited to performing home automation and the scripting of repetitive" & @CRLF & _ 
  20.       "tasks." & @CRLF & @CRLF & "AutoIt can:" & @CRLF & @CRLF & "Execute Windows and DOS executables", 1)
  21.  
  22. GUISetState()
  23.  
  24. ; Run the GUI until the dialog is closed
  25. While 1
  26.    $msg = GUIGetMsg()
  27.    Select
  28.       Case $msg = $GUI_EVENT_CLOSE
  29.          ExitLoop
  30.       Case $msg = $Btn_Replace
  31.          _GUICtrlEditReplaceSel ($myedit, 1, "Oops")
  32.    EndSelect
  33. WEnd
  34.